home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / HAMRADIO / LOGBOOK.ZIP / LOGAWARD.PRG < prev    next >
Text File  |  1986-12-03  |  2KB  |  64 lines
  1. *LOGAWARD.PRG CALLED FROM LOGBOOK
  2. *BY JOE KASSER 860829
  3.  
  4. DO WHILE task <> '*'
  5.    ERASE
  6.    @ 2,10 SAY 'G3ZCZ AWARD RECORD KEEPING FUNCTIONS Version  1.1'
  7.    @ 4,1  SAY 'PICK AN AWARD PACKAGE, the following are supported'
  8.  
  9.    @ 6,1  SAY 'WAZ                                         Z'
  10.    @ 7,1  SAY 'WAS                                         S'
  11.    @ 8,1  SAY 'DXCC                                        D'
  12.    @ 9,1  SAY 'OBLAST                                      O'
  13.    @ 10,1 SAY 'GENERAL AWARD                               G'
  14.    @ 11,1 SAY 'CHANGE LOGBOOK                              L'
  15.    @ 13,1 SAY 'LZ60 AWARD  (BULGARIAN 60TH ANNIVERSARY)    B'
  16.    @ 20,1 SAY 'QUIT THIS MENU                              *'
  17.    @ 22,1 SAY 'QRU'
  18.    @ 22,5 GET task
  19.    READ
  20.  
  21.    DO CASE
  22.  
  23.       CASE task ='S'
  24.  
  25.          DO    WAS
  26.  
  27.       CASE task = 'Z'
  28.  
  29.          DO    WAZ
  30.  
  31.       CASE task = 'D'
  32.  
  33.          DO    DXCC
  34.  
  35.       CASE task = 'O'
  36.  
  37.          DO    OBLAST
  38.  
  39.       CASE task = 'L'
  40.  
  41.          @ 22,1 SAY 'Which Log file '
  42.          @ 22,15 GET logbook
  43.          READ
  44.          STORE logbook TO logndx
  45.          IF FILE (logbook)
  46.             @ 22,1 SAY '                          '
  47.          ELSE
  48.             @ 22,1 SAY ' '
  49.             ? 'ERROR, ',logbook, 'IS NOT PRESENT ON DRIVE'
  50.             WAIT
  51.          ENDIF
  52.  
  53.       CASE task = 'G'
  54.  
  55.          DO AWARD
  56.  
  57.       CASE task = 'B'                                                   
  58.  
  59.       DO LZ60
  60.    ENDCASE
  61.  
  62. ENDDO
  63. STORE ' ' TO task
  64. RETURN